home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / MIREPACK.PRG < prev    next >
Text File  |  1986-10-06  |  723b  |  32 lines
  1. *
  2. * MIREPACK
  3. * CLEAN UP MFG INV FILE BY REMOVING DELETED RECORDS AND REGENERATING INDEXES
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,16 SAY ">> Manufactured Inventory System File Clean Up <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE " " TO DUMMY
  16. @ 15,1 SAY ;
  17. "THIS PROGRAM PERMANENTLY REMOVES RECORDS FLAGGED FOR DELETION FROM THE"
  18. @ 16,1 SAY ;
  19. "MFGINV FILE. 'M' HERE RETURNS TO MENU. ANY OTHER KEY STARTS REPACK =>";
  20. GET DUMMY
  21. READ
  22. STORE UPPER(DUMMY) TO DUMMY
  23. IF DUMMY="M"
  24.    RETURN
  25. ENDIF
  26. * OPEN MFGINV FILE WITH ITS INDEX, THEN REPACK
  27. USE MFGINV INDEX MSTOCKNO
  28. PACK
  29. REINDEX
  30. CLEAR
  31. RETURN
  32.